home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POVTOOLS / SCENES / LEVEL1 / GRANITE.POV < prev    next >
Encoding:
Text File  |  1995-11-25  |  1.6 KB  |  51 lines
  1. // Persistence of Vision Raytracer
  2. // This data file makes a good starting point for developing tests and
  3. // new data files.  It is also used as the benchmark for the timing tests.
  4.  
  5. #include "colors.inc"           // Standard colors library
  6. #include "shapes.inc"           // Commonly used object shapes
  7. //#include "shapes2.inc"          // More useful shapes
  8. //#include "shapesq.inc"          // Quartic and other algebraic shapes. Neat!
  9. #include "textures.inc"         // LOTS of neat textures.  Lots of NEW textures.
  10. //#include "texture2.inc"         // SPECIAL!  Mike Miller's IONICS5 texture lib.
  11.  
  12. camera {
  13.    location  <0, 3.5, -3.5>
  14.    direction <0, 0,    1>
  15.    up        <0, 1,    0>
  16.    right   <4/3, 0,    0>
  17.    look_at   <0, 0,    0>
  18. }
  19.  
  20. // Light source
  21.  
  22. light_source {<-30, 11, +20>  color White  } 
  23. light_source {< 31, 12, -20>  color White  }
  24. light_source {< 32, 11, -20>  color LightGray }
  25.  
  26. #declare Pink_Gran_Texture =
  27. texture {
  28.    pigment{Pink_Granite turbulence 0}
  29.    finish {
  30.       Glossy
  31.       ambient 0.15
  32.       reflection 0.2
  33.    }
  34. }
  35.  
  36. union {
  37.    sphere {<0, 0, 0>, 1.75}
  38.    difference {
  39.       object {UnitBox scale 1.5}
  40.       // Clip some sqr holes in the box to make a 3D box frame
  41.       object {UnitBox scale <1.51, 1.25, 1.25> }   // "clip" x
  42.       object {UnitBox scale <1.25, 1.51, 1.25> }   // "clip" y
  43.       object {UnitBox scale <1.25, 1.25, 1.51> }   // "clip" z
  44.    }
  45.    texture { Pink_Gran_Texture scale 0.25 }
  46.    bounded_by { object {UnitBox scale 1.75 } }
  47.    rotate y*45
  48. }
  49.  
  50. //plane {y, -1.5  texture { Pink_Gran_Texture scale 0.05 } }
  51.